code writing/var_chage.R

In JiaoyanHuang/CMAQ-input:

#' summarize county level MOVESoutput
#'
#' This function summarize county level MOVESouput
#' @param path: path to the file
#' @param file: target netcdf file
#' @param outfile: output netcdf file
#' @param var: the variable you would like to change
#' @param ratio: the ratio you would like to apply
#' @export
#' @examples
#'
#'

var_change <- function(file, path, inpoll, outfile, ratio){

  library(ncdf4)
  path <- path
  file <- file
  poll <- inpoll
  ratio <- ratio
  file1 <- sprintf("%s/%s",path, file)
  file2 <- sprintf("%s/%s",path, outfile)
  file.copy(file1, file2,overwrite = T)


  ncin <- nc_open(file2, write = T)
  data_tmp1 <- ncvar_get(ncin,poll)
  data_tmp2 <- data_tmp1*ratio
  ncvar_put( ncin, poll, data_tmp2)
  nc_close(ncin)
}